home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / WinFind.cls < prev    next >
Text File  |  1997-06-14  |  1KB  |  50 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CWindowFind"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11.  
  12. Implements IWindowsHelper
  13.  
  14. Public Class As String
  15. Public Title As String
  16.  
  17. Private Function IWindowsHelper_DoWindow(ByVal iLevel As Integer, ByVal hWnd As Long) As Long
  18.     
  19.     ' Ignore iLevel
  20.     Dim sClass As String, sTitle As String
  21.     sClass = ClassNameFromWnd(hWnd)
  22.     sTitle = WindowTextFromWnd(hWnd)
  23.     If Title = sEmpty Then
  24.         If Class = sEmpty Then
  25.             ' Can't both be empty
  26.             BugAssert True
  27.         Else
  28.             ' Only class needs to match
  29.             If sClass Like Class Then
  30.                 IWindowsHelper_DoWindow = hWnd
  31.             End If
  32.         End If
  33.     Else
  34.         If Class = sEmpty Then
  35.             ' Only title needs to match
  36.             If sTitle Like Title Then
  37.                 IWindowsHelper_DoWindow = hWnd
  38.             End If
  39.         Else
  40.             ' Both must match
  41.             If sTitle Like Title Then
  42.                 If sClass Like Class Then
  43.                     IWindowsHelper_DoWindow = hWnd
  44.                End If
  45.             End If
  46.         End If
  47.     End If
  48.     
  49. End Function
  50.